home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / fb386 / eiyoukei / sconvrt.bas < prev    next >
BASIC Source File  |  1994-06-01  |  2KB  |  42 lines
  1. 100 'SAVE "SCONVRT.BAS",A
  2. 110 'FBHGーFB386
  3. 120 '          V2.2                  94.02.03
  4. 130 GOSUB *INI
  5. 140 OPEN "0:(128)SEIBUN.DAT" AS #1
  6. 150 FIELD #1,4 AS FG11$,48 AS FG12$
  7. 160 DIM FG1$(19)
  8. 170 FOR I=1 TO 19:FIELD #1,4*(I-1)+52 AS DAMMY$,4 AS FG1$(I):NEXT I
  9. 180 NAME "1:SEIBUN.DAT" AS "1:SEIBUN.BAK"
  10. 190 OPEN "1:(128)SEIBUN.DAT" AS #2
  11. 200 FIELD #2,4 AS FG21$,48 AS FG22$
  12. 210 DIM FG2$(19)
  13. 220 FOR I=1 TO 19:FIELD #2,4*(I-1)+52 AS DAMMY$,4 AS FG2$(I):NEXT I
  14. 230 ED=LOF(1)
  15. 240 FOR II=1 TO ED
  16. 250 GET #1,II
  17. 260 LSET FG21$=MKS$(CVSMBF(FG11$))
  18. 270 LSET FG22$=FG12$
  19. 280 FOR I=1 TO 19:LSET FG2$(I)=MKS$(CVSMBF(FG1$(I))):NEXT I
  20. 290 PUT #2,II
  21. 300 NEXT II
  22. 310 CLOSE:RUN "MENTE.BAS" 
  23. 1000 *INI ON ERROR GOTO *ERR
  24. 1010 CLS:PRINT "このプログラムはＦＢ３８６で実行してください｡"
  25. 1020 SCREEN@ 0
  26. 1030 PRINT "FM-R(FB-HG)のSEIBUN.DATを TOWNS(FB-386)のSEIBUN.DATに変換します｡"
  27. 1040 INPUT X$
  28. 1050 PRINT "FM-R(FB-HG)のSEIBUN.DATをドライブ０にセットしてください。"
  29. 1060 INPUT X$
  30. 1070 PRINT "TOWNS(FB-386)のSEIBUN.DATを作製するフロッピーデスクをドライブ１にセットしてください。"
  31. 1080 PRINT "ドライブ１にSEIBUN.DATがある場合にはSEIBUN.BAKにリネームします。"
  32. 1090 INPUT X$
  33. 1095 'SHELL "B:":SHELL "CD \LIB":SHELL "A:"
  34. 1100 RETURN
  35. 1110 *ERR 
  36. 1120 IF ERL=180 AND ERR=63 THEN RESUME NEXT
  37. 1130 IF ERL=180 AND ERR=64 THEN KILL "1:SEIBUN.BAK":RESUME
  38. 1135 IF ERL=1020 THEN RESUME 310
  39. 1136 IF ERL=1095 THEN RESUME 310
  40. 1137 PRINT "ERR=";ERR;,"   ERL=";ERL
  41. 1140 *ERRE ON ERROR GOTO 0:CLOSE:END
  42.